﻿Imports System.Collections
Imports System.Net.Sockets
Imports System.Net

Public Class ClusterServer

    Public Shared client As New TcpClient()

    Public Shared Sub connectToCluster()
        Try
            client.Connect(IPAddress.Parse(Config.ISCIP), Config.ISCClusterServerPort)
            Dim pc As New ISCPacketCreator(client)
            pc.addInt(&H1)
            pc.addString("WorldServer")
            pc.send()
        Catch
            log.log(LogType.MSG_ERROR, "Could not connect to ClusterServer.")
            Threading.Thread.Sleep(1000)
            End
        End Try
    End Sub

End Class